COMMENT ⊗   VALID 00005 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	α	RECOGNIZER DISPLAY ROUTINES SOURCE_FILE
 00003 00003	α	DISPLAY EXTERNALS
 00004 00004	α EXTERNAL DISPLAY PROCEDURE DECLARATIONS
 00005 00005	α  QUAM DISPLAY ROUTINES AS MODIFIED BY BGB
 00008 ENDMK
⊗;
α	RECOGNIZER DISPLAY ROUTINES SOURCE_FILE;

DEFINE
	APOG=<6>,
	BPOG=<7>,
	SPOG=<8>,
	T1POG=<9>,
	T2POG=<10>;

DEFINE
	TEXT=<1>,MEDIUM=<2>,BIG=<5>,
	BRIGHT=<7>,DIM=<3>,
	#X(Z)=<∂(Z)[6]>,#Y(Z)=<∂(Z)[7]>,
	DPYSVS(X,Y,STR)=
		<BEGIN
			AIVECT(X-10,Y-10);
			DPYSST(STR);
			END>,
	ALINE (X1,Y1,X2,Y2) =<AIVECT (X1,Y1) ; AVECT (X2,Y2) >;


α	DISPLAY EXTERNALS;

EXTERNAL SAFE INTEGER ARRAY
	DPYAA[1:200],
	DPYBB[1:100],
	DPYCC[1:5];

EXTERNAL BOOLEAN DPYBOOL;
EXTERNAL STRING DPYRTS;

α EXTERNAL DISPLAY PROCEDURE DECLARATIONS;

ESUBR	DPYL(ITEMVAR L);
ESUBR	DPYLN(ITEMVAR L);
ESUBR	DPYPT(SAFE REAL ARRAY ITEMVAR P);
ESUBR	DPYB(ITEMVAR B);
ESUBR	DPYS;
ESUBR	DPYSCENE(ITEMVAR S);

α SHOW DATA STRUCTURE
EP	FLIT;

α INITIALIZATION SUBRS;
ESUBR	DPYINIT;
ESUBR	DPYVINIT;
ESUBR	DPYVI(SAFE REAL ARRAY ITEMVAR P);

α STATUS SUBRS;
ESUBR	DPYBRK;
ESUBR	DPYLAB(STRING STR);
ESUBR	DPYTELL(STRING STR);
ESUBR	DPYINFO(STRING STR);
ESUBR	DPYCMD(STRING STR);

α  QUAM DISPLAY ROUTINES AS MODIFIED BY BGB;

EXTERNAL PROCEDURE DPYTYP(INTEGER POS,JMPS,LPJ);
EXTERNAL PROCEDURE TYPLOC(INTEGER P1,P2);

EXTERNAL PROCEDURE DPYSET(INTEGER ARRAY DPYBUF);

EXTERNAL PROCEDURE AIVECT(INTEGER X,Y);
EXTERNAL PROCEDURE AVECT(INTEGER X,Y);
EXTERNAL PROCEDURE RIVECT(INTEGER X,Y);
EXTERNAL PROCEDURE RVECT(INTEGER X,Y);

EXTERNAL PROCEDURE DPYSST(STRING S);

EXTERNAL PROCEDURE DPYCLR;
EXTERNAL PROCEDURE DPYOUT(INTEGER POG);
EXTERNAL PROCEDURE HYDPOG(INTEGER POG);

EXTERNAL PROCEDURE DPYBRT(INTEGER X);
EXTERNAL PROCEDURE DPYBIG(INTEGER SIZ);


α	END OF FILE;